numeric_summary <- analysis_data |>
group_by(Age_Group) |>
summarize(Age_Range = str_c(
round(median(Age, na.rm = TRUE), 1),
" (",
min(Age, na.rm = TRUE),
"–",
max(Age, na.rm = TRUE),
")"),
BMI_Range = str_c(
round(median(BMI, na.rm = TRUE), 1),
" (",
min(BMI, na.rm = TRUE),
"–",
max(BMI, na.rm = TRUE),
")"),
.groups = 'drop')